home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / grcrypt.zip / ENGREEK.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  666b  |  26 lines
  1. Program Encode;
  2. Var
  3.  Infile,Outfile:text;
  4.  Tempbuf:string[80];
  5.  I:integer;
  6. Begin
  7.   if paramstr(1)='?' then
  8.         begin
  9.          writeln('Official Greeker Encryption Program');
  10.          Writeln('Copyright 1992 PhrooTechnologies');
  11.          Writeln('syntax is ENGREEK: <infile> <outfile>');
  12.          Halt;
  13.         end;
  14.   Assign(infile,paramstr(1));
  15.   reset(infile);
  16.   Assign(outfile,paramstr(2));
  17.   rewrite(outfile);
  18.    repeat
  19.      Readln(infile,tempbuf);
  20.       for I:=1 to length(tempbuf) do
  21.         write(outfile,chr(ord(upcase(tempbuf[I]))-65+224));
  22.       writeln(outfile);
  23.     until eof(infile);
  24.    close(outfile);
  25.    close(infile);
  26. end.